home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / inictl12 / id_main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  5.6 KB  |  225 lines
  1. unit Id_main;
  2.  
  3. {
  4.  
  5. $Log:   W:/users/prodigy/prodig~1/archive/inifile/id_main.pav  $
  6.  * 
  7.  *    Rev 1.25   28 Jan 1996 12:37:16   PaulK
  8.  * Cosmetic changes
  9.  * 
  10.  *    Rev 1.21   14 Jan 1996 11:56:24   PaulK
  11.  * Changes to permit bitmapped RBs
  12.  * 
  13.  *    Rev 1.0   13 Jan 1996 18:56:32   PaulK
  14.  * Initial revision.
  15.  
  16. }
  17.  
  18. interface
  19.  
  20. uses
  21.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  22.   Forms, Dialogs, StdCtrls, ExtCtrls, TabNotBk, IniCtrls, Grids, Buttons;
  23.  
  24. type
  25.   TForm1 = class(TForm)
  26.     TabbedNotebook1: TTabbedNotebook;
  27.     WinIniSource: TIniSource;
  28.     SolIniSource: TIniSource;
  29.     IniEdit1: TIniEdit;
  30.     IniNEdit1: TIniNEdit;
  31.     IniNEdit2: TIniNEdit;
  32.     IniNEdit3: TIniNEdit;
  33.     IniGrid1: TIniGrid;
  34.     IniRadioButton1: TIniRadioButton;
  35.     Image1: TImage;
  36.     IniRadioButton2: TIniRadioButton;
  37.     Image2: TImage;
  38.     IniRadioButton3: TIniRadioButton;
  39.     Image3: TImage;
  40.     IniRadioButton4: TIniRadioButton;
  41.     Image4: TImage;
  42.     IniRadioButton5: TIniRadioButton;
  43.     Image5: TImage;
  44.     IniRadioButton6: TIniRadioButton;
  45.     Image6: TImage;
  46.     IniRadioButton7: TIniRadioButton;
  47.     Image7: TImage;
  48.     IniRadioButton8: TIniRadioButton;
  49.     Image8: TImage;
  50.     IniRadioButton9: TIniRadioButton;
  51.     Image9: TImage;
  52.     IniRadioButton10: TIniRadioButton;
  53.     Image10: TImage;
  54.     IniRadioButton11: TIniRadioButton;
  55.     Image11: TImage;
  56.     IniRadioButton12: TIniRadioButton;
  57.     Image12: TImage;
  58.     IniRadioButton13: TIniRadioButton;
  59.     IniRadioButton14: TIniRadioButton;
  60.     IniRadioButton15: TIniRadioButton;
  61.     IniRadioButton16: TIniRadioButton;
  62.     IniRadioButton17: TIniRadioButton;
  63.     IniCheckBox1: TIniCheckBox;
  64.     IniCheckBox2: TIniCheckBox;
  65.     IniCheckBox3: TIniCheckBox;
  66.     IniCheckBox4: TIniCheckBox;
  67.     IniCheckBox5: TIniCheckBox;
  68.     Btn_Next: TButton;
  69.     Btn_Finish: TButton;
  70.     Btn_Back: TButton;
  71.     Btn_Save: TButton;
  72.     Btn_View: TButton;
  73.     Btn_Play: TButton;
  74.     Btn_Licence: TBitBtn;
  75.     ListBox1: TListBox;
  76.     ListBox2: TListBox;
  77.     Label1: TLabel;
  78.     Label2: TLabel;
  79.     Label3: TLabel;
  80.     Label4: TLabel;
  81.     Label5: TLabel;
  82.     Label6: TLabel;
  83.     Label7: TLabel;
  84.     Label8: TLabel;
  85.     Label9: TLabel;
  86.     Label10: TLabel;
  87.     Label11: TLabel;
  88.     Label12: TLabel;
  89.     Label13: TLabel;
  90.     Label14: TLabel;
  91.     Label15: TLabel;
  92.     Label16: TLabel;
  93.     Label18: TLabel;
  94.     Label19: TLabel;
  95.     Label20: TLabel;
  96.     Label21: TLabel;
  97.     Label22: TLabel;
  98.     Label23: TLabel;
  99.     Label24: TLabel;
  100.     Label25: TLabel;
  101.     Label26: TLabel;
  102.     Label27: TLabel;
  103.     Label28: TLabel;
  104.     Label29: TLabel;
  105.     Label30: TLabel;
  106.     Label31: TLabel;
  107.     Bevel1: TBevel;
  108.     Bevel2: TBevel;
  109.     Bevel3: TBevel;
  110.     Bevel4: TBevel;
  111.     Bevel5: TBevel;
  112.     Bevel6: TBevel;
  113.     Bevel7: TBevel;
  114.     GroupBox1: TGroupBox;
  115.     GroupBox2: TGroupBox;
  116.     Label34: TLabel;
  117.     Label17: TLabel;
  118.     procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  119.       var AllowChange: Boolean);
  120.     procedure WinIniSourceActivate(Sender: TObject);
  121.     procedure ListBox1Click(Sender: TObject);
  122.     procedure ListBox2Click(Sender: TObject);
  123.     procedure Btn_BackClick(Sender: TObject);
  124.     procedure Btn_SaveClick(Sender: TObject);
  125.     procedure Btn_NextClick(Sender: TObject);
  126.     procedure Btn_FinishClick(Sender: TObject);
  127.     procedure Btn_ViewClick(Sender: TObject);
  128.     procedure Btn_PlayClick(Sender: TObject);
  129.     procedure Btn_LicenceClick(Sender: TObject);
  130.     procedure SolIniSourceChange(Sender: TObject);
  131.   private
  132.     { Private declarations }
  133.   public
  134.     { Public declarations }
  135.   end;
  136.  
  137. var
  138.   Form1: TForm1;
  139.  
  140. implementation
  141.  
  142. {$R *.DFM}
  143.  
  144. procedure TForm1.Btn_NextClick(Sender: TObject);
  145. begin
  146. with tabbednotebook1 do
  147.   pageindex := (pageindex + 1) mod pages.count;
  148. end;
  149.  
  150. procedure TForm1.Btn_FinishClick(Sender: TObject);
  151. begin
  152. close;
  153. end;
  154.  
  155. procedure TForm1.Btn_BackClick(Sender: TObject);
  156. begin
  157. with tabbednotebook1 do
  158.   pageindex := (pageindex - 1) mod pages.count;
  159. end;
  160.  
  161. procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  162.   var AllowChange: Boolean);
  163. begin
  164. Btn_Back.visible := newtab <> 0;
  165. Btn_Next.enabled := newtab <> pred(tabbednotebook1.pages.count);
  166. Btn_Save.visible := newtab in [3,6];
  167. Btn_View.visible := Btn_Save.visible;
  168. Btn_Play.visible := Btn_Save.visible;
  169. if newtab in [3,6] then
  170.   Btn_Save.enabled := SolIniSource.Modified;
  171. end;
  172.  
  173. procedure TForm1.Btn_SaveClick(Sender: TObject);
  174. begin
  175. SolIniSource.save;
  176. Btn_Save.enabled := SolIniSource.Modified;
  177. end;
  178.  
  179. procedure TForm1.WinIniSourceActivate(Sender: TObject);
  180. begin
  181. ListBox1.Clear;
  182. WinIniSource.Inifile.ReadSection('Compatibility',ListBox1.items);
  183. ListBox2.Clear;
  184. WinIniSource.Inifile.ReadSection('PrinterPorts',ListBox2.items);
  185. end;
  186.  
  187. procedure TForm1.ListBox1Click(Sender: TObject);
  188. begin
  189. IniNEdit3.Keyword := Listbox1.Items[ListBox1.itemindex];
  190. end;
  191.  
  192. procedure TForm1.ListBox2Click(Sender: TObject);
  193. begin
  194. with IniGrid1 do
  195.   begin
  196.   Keyword := Listbox2.Items[ListBox2.itemindex];
  197.   Cells[0,0] := 'Driver:';
  198.   Cells[0,1] := 'Port:';
  199.   Cells[0,2] := 'Device timeout:';
  200.   Cells[0,3] := 'Retry timeout:';
  201.   end;
  202. end;
  203.  
  204. procedure TForm1.Btn_ViewClick(Sender: TObject);
  205. begin
  206. WinExec ('notepad.exe sol.ini', sw_ShowNormal);
  207. end;
  208.  
  209. procedure TForm1.Btn_PlayClick(Sender: TObject);
  210. begin
  211. WinExec ('sol.exe', sw_ShowNormal);
  212. end;
  213.  
  214. procedure TForm1.SolIniSourceChange(Sender: TObject);
  215. begin
  216. Btn_Save.Enabled := SolIniSource.Modified;
  217. end;
  218.  
  219. procedure TForm1.Btn_LicenceClick(Sender: TObject);
  220. begin
  221. Application.HelpContext(5000);
  222. end;
  223.  
  224. end.
  225.